home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / ole1v10a.lha / OLE_System / modules / fw_st / Check_Printer_Setup.fw < prev    next >
Encoding:
Text File  |  1995-02-10  |  593 b   |  32 lines
  1. /*
  2.  * Check_Printer_Setup.fw
  3.  *
  4.  * USAGE: Check_Printer_Setup.fw
  5.  *
  6.  * Check_Printer_Setup.fw
  7.  *
  8.  * HISTORY:
  9.  * v1.01    aligned with the new server design v1.10
  10.  *
  11.  * $(C): (1994, Rocco Coluccelli, Bologna)
  12.  * $VER: Check_Printer_Setup.fw 1.01 (30.Nov.1994)
  13.  */
  14.  
  15. oleport        = 'OLE_SERVER'
  16. olerexx        = 'OLE.rexx'
  17.  
  18. userport    = ADDRESS()
  19. userscreen    = 'Workbench'
  20. module1        = 'CheckPRTSetup.ole'
  21. module2        = 'DrawPRTSetup.fw'
  22.  
  23. IF ~SHOW('P',oleport) THEN DO
  24.     ADDRESS COMMAND
  25.     "Run >NIL: Rx" olerexx
  26.     "WaitForPort" oleport
  27.     END
  28.  
  29. CALL SendParsed(oleport,'NEWJOB',userport,userscreen,module1,module2)
  30.  
  31. EXIT 0
  32.